Public Class MapFilter

Code Sample

• %REM
  The following code filters out values that are odd numbers
  %END REM
  Class EvenFilter as MapFilter
      Function filter(kvPair as Pair) as Boolean
          Dim value as Integer
          value = kvPair.value
          Return value Mod 2 = 0
      End Function
  End Class
  Dim map as New Map("INTEGER", Nothing, False)
  Dim ef as New EvenFilter
  Dim map2 as Map
  Call map.put("Elem1", 1)
  Call map.put("Elem2", 2)
  Call map.put("Elem3", 3)
  Call map.put("Elem4", 4)
  Set map2 = map.filter(ef)
  Print map2.elementCount

Methods Detail

• filter

  Public Function filter(kvPair As Pair) As Boolean
  Function to filter a Map's keys or values
  idx	Argument	Data Type	Attributes	Comments
  1	kvPair	Pair		Pair containg the key and value for the current element in the Map
  Code Sample
  %REM The following code filters out values that are odd numbers %END REM Class EvenFilter as MapFilter Function filter(kvPair as Pair) as Boolean Dim value as Integer value = kvPair.value Return value Mod 2 = 0 End Function End Class Dim map as New Map("INTEGER", Nothing, False) Dim ef as New EvenFilter Dim map2 as Map Call map.put("Elem1", 1) Call map.put("Elem2", 2) Call map.put("Elem3", 3) Call map.put("Elem4", 4) Set map2 = map.filter(ef) Print map2.elementCount

• New

  Public Sub New()